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ADDRESSING_MODE pA a LONG RELATI 
NONEXTERNAL = LONG_REL ATIVE), 
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IDENT = ‘V04-000') = 
BEGIN 
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is COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
'x DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 
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. ® 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR “ANY. OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. ‘ 
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Vee RARER 
FACILITY: PATCH 


FUNCTIONAL DESCRIPTION: 
INITIALIZATION ROUTINES FOR PATCH. 
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B78 Carol Peters, 12 Aug 1976: Version 01 | 
9061 MODIFIED BY: | 
004 v03-003 MCNO142 a del C. 18-Jan-1982 
0044 Change SIGNAL Re ar onae *sToP. "hiss define enece ‘eters 

0045 — ogical eovice names, since th heir FABs d 

0046 blocks, and we cannot use the so 

9944 RETF ILDSC to get it. 

0049 V03-002 MTROOO7 Mike mates Met pegr tbe 9 


Use shared system wi 352988 attested erdules. fn lude: 
DYNMEM, 8 2. PATBAS. PATCMD.B PATIHD.B32, CATING. B32, 
PATIO.B32, PATMAL.B32, PATMSG.MSG, PATWRT.B32, and PATSPA.B32. 


The shared messages. ory defined by DYNMEM.B32's invocation of 
SHRMSG.REQ and we simply Link against these symbols. They are 
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declared as external rals below. 
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PATBAS 1§- -Sep- VAX-11 Bliss-32 V4.0-742 2 
oo 14- =tep- 198 99: 98: $6 DISK SC SVNER TER: CPATCH.SRCJPATBAS. B32, 79 Fay 

; 0058 1! g 
; WW 0059 1! v03-001 boiees. Mike Rhodes 07-JUN-1982 : 
; & 0060 1! d statement to clear the I_HAT Stee bit for end : 
; ] 006] } of command processing in routine PATSSET_CONTEXT. ; 
we | ppeg 4 v02-001 PCG0001 Peter Geor rae 02=FEB-1981 : 
: rt: beee } Add require statement for LIB$:PATDEF.REQ ; 
; 66 0066 1 ! MODIFICATIONS: 3 
; oF 0067 1! 3 
; 68 0068 1! NO DATE PROGRAMMER PURPOSE ; 
° 69 0069 1 1 ad =m =i li ee ee a ee ee ee ems mame li ea ea ea ea es etn : 
3 70 0070 1! : 
3 71 0071 1! OO 17-0CT-77 K.D. MORSE ADAPT VERSION 54 FOR PATCH. | ; 
3 72 007 1! Q1 4-JAN-78 K.D. MORSE NO CHANGES FOR 55-82. 6 
Tee 0073 1! #O 4-JAN-78 K.D. MORSE NO CHANGES FOR 83-84. 3 
: 7 0074 1! O 8-FEB-78 K.D. MORSE NO CHANGES FOR 85-86. : 
; 75 0075 1! 064 01-MAR-78 K.D. MORSE ADD CONTEXT BIT RESET FOR /ALL. ; 
; 76 0076 1! OS 01-MAR-78 K.D. MORSE NO CHANGES FOR 87. : 
Bees 4 0077 1! 06 24=-MAR-78 K.D. MORSE NO CHANGES FOR 88-91. 3 
4 78 0078 1! Q7 04-APR-78 K.D. MORSE NO CHANGES FOR 92-93. $ 
; 79 0079 1! O08  14-APR-78 K.D. MORSE NO CHANGES FOR 94. 3 
; 80 0080 1! Q9 18-APR-78 K.D. MORSE ADD LITERAL_BIT AND OPN COM. FILE. : 
;. «6ST 0081 1! 10 25-APR-78 K.D. MORSE CONVERT TO NATIVE COMPICER F 
; 82 0082 1! 11 18-MAY-78 K.D. MORSE NO CHANGES FOR VERS 95. é 
; 85 0083 1! 1 18-MAY-78 K.D. MORSE NO CHANGES FOR VERS 96-97. 3 
$ 84 0084 1! #1 06-JUN-78 K.D. MORSE INITIALIZE LISTHEADS FOR 3 
; 85 0085 1! OLD AND NEW LABELS, PATSGL_OLDLABLS b4 
: 86 0086 1: AND PATSGL NEWLABLS. ; 
3: 87 0087 1! 14 £13=JUN-78 K.D. MORSE ADD FAO COONTS TO SIGNALS. 3 
; 88 008m8 1! «15 16-JUN-78 K.D. MORSE INITIALIZE APPENDED COMMAND 3 
3 89 0089 1! TEXT BUFFE ; 
z 90 0090 1! 16 19=JUN-78 K.D. MORSE NO CHANGES FOR VERS 98-99. $ 
3 91 0091 1: 17 28-JUN-78 K.D. MORSE NO CHANGES FOR VERS 100- -102. b 
5. oe 0092 1! 3 
: 93 0093 1 !-- 3 
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; + 0094 1 FORWARD ROUTINE ; 
>; 396 0095 1 PATSSET CONTEXT: NOVALUE, ! Routine to initialize context bits : 
; 44 B38 | PATSINIT: NOVALUE; ! Routine to initialize PATCH : 
; 0098 1 LIBRARY 'SYSSLIBRARY:STARLET.L32'; : 
; 100 0099 1 REQUIRE 'SRC$:VXSMAC.REQ'; ; 
; 101 0164 1 REQUIRE 'SRC$:PATPCT.REQ'; ! Defines PSECTS | : 
; 10 0204 1 REQUIRE ‘SRC$:PATGEN.REQ'; : 
; 0426 1 REQUIRE 'SRC$:BSTRUC.REQ'; 

> 104 0502 1 REQUIRE ‘SRC$:DLLNAM.REQ'; 

> 105 0560 1 REQUIRE ‘LIBS:PATDEF.REQ'; ! Defines literals 

: 196 p6i* 1 REQUIRE ‘LIBS:PATMSG.REQ'; 

; 10 0788 1 REQUIRE ‘SRC$:PREFIX.REQ'; 

; 108 0976 1 REQUIRE ‘SRC$:PATPRE.REQ'; | 

; 109 1139 1 

; 110 1140 1 EXTERNAL ROUTINE | 

; 1141 1 PATSFREEZ, : Routine to allocate a block of free storag_ 

s We 1336 1 PATSFREEINIT, ! Routine to initialize free storage 

; a 1307 ' PATSRESET_DEF; ! Sets up default mode settings 

: 115 1145 1 EXTERNAL | 

; 6 1146 1 PATSGB_ECOLVL: BYTE, ' ECO level for current patch 

, 307 1147 1 PATSGB_ERRNAME , ' Logical error channel name 

; 118. 1148 #1 PATS$GB_INPNAME , ! Logical input channel name 

; 9 1149 1 PATS$GB_OUTNAME, ' Logical output channel name 

: 120 1150 1 PATSGL_CONTEXT: BITVECTOR, ! PATCH command context bits 

s 21 1151 1 PATSGL_INPFAB: BLOCK C, BYTE), ' FAB for command input stream 

-~ 122 7 PATSGL_INPRAB: BLOCK C, BYTE], ' RAB for command input stream 

; Yes io) 3 PATSGL_OUTFAB: BLOCK C, BYTE, ! FAB for command output stream 

> 124 1154 1 PATSGL_OUTRAB: BLOCK C, BYTE], ! RAB for command output stream 

: ie 1155 1 PATSGL_ERRFAB: BLOCK C, BYTE), ' FAB for error messages 

> 126 1156 1 PATSGL_ERRRAB: BLOCK C, BYTEI, ! RAB for error messages 

s ter 1157 1 PATSGL_SYMHEAD ! Listhead for user-defined symbol table 

> 128 1158 1 PATSGL_SYMTBPTR, i Pointer to default symbol table 

: 129 1159 1 PATSGL_OLDLABLS, ' Listhead for old contents instruction Labe 

: 130 1160 1 PATSGL_NEWLABLS, : Listhead for new contents un-relocated ins) 

3 31 1161 1 PATSGL_RLCLABLS, ' Listhead for newcontents relocated instruc 

5 Ta 1162 1 PATSGL_ERRCODE, ! Error code 

; Yeo 1163 1 PATSGL_TXTFREE, ! Pointer to next free byte in Last text buf 

; 134 1164 1 PATSGL_TXTLHD : REF BLOCKC,BYTEI, ! Pointer to first text buffer 

13? 1192 : PATSGL_TXTTAIL; ! Pointer to last text buffer 

; tar 1167 1 EXTERNAL LITERAL 

; «138 1168 1 PATSK_ERRNAMLNG, ! Length of error channel name 

: 139 1169 1 PAT$K_OUTNAMLNG, ! Length of output channel name 

; ye ay : PATSK_INPNAMLNG, ! Length of input channel name 

; 126 M176 ' : Define shared message references. (resolved @ Link time) 

7 144 1174 1 PAT$_CLOSEIN ! Error closing input file. 

; 145 1175 1 PAT$_ CLOSEOUT, i Error closing output file. 

3: 146 1176 (1 PAT$_OPENIN ' Error opening input file. 

: 147 1177 (1 PAT$_OPENOUT, ! Error opening output file. 

; «148 1178 1 PATS_READERR ! Error reading from file. 

: 149 1179 1 PATS-SYSERROR, i System Service error. 

3; 199 1180 1 PATS_WRITEERR; ! Error writing to file. 
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09 1238 2 PATSGL CONTEXT CLITERAL | 
10 1239 2 PATSGL-CONTEXT [OPN_COM™ 
1240 ¢ PATSGL~ CONTEXT CI_HAT_S 


PATBAS 
\V04-000\ 
20 
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PAT$GB_ECOLVL 


| 
| 
RN PATSFREEZ, PATSFREEINIT | 
XTRN PATS$GB_ERRNAME, PATS$GB_INPNAME 
XTRN PA U L~ | 


XTRN PATS$GL~ERRFAB, PAT$GL ERRRAB 
PATSGL. SYMTBPTR 


LABLS 
-EXTRN PATS$GL~ “ERRCODE. PATSGL_TXTFREE 
EXTRN PATSGL~ TXTLHD. “PATSGL_ TXTTAIL 


NAMLNG 
~EXTRN PATS XCLOSEING erais CLOSEOUT 
.EXTRN PATS _OPENIN ENOUT 
“EXTRN PATS “READERR PPATS _SYSERROR 
“EXTRN PATS "WRITEERR 

. WEAK ACCESS. CHECK 


~PSECT _PATSCODE ,NOWRT,2 | 
0000 00000 NTRY PATSSET_CONTEXT, Save nothing | 


-E : 1181 
00000000G EF O7FDOSFF 8F CA 00002 BICL2  #134022655, PATSGL_CONTEXT : 1240 
04 00000 RET : 1241 


3; Routine Size: 14 bytes, Routine Base: _PATSCODE + 0000 
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! IMPLICIT INPUTS: 
The FABs and RABs for input and output. 
Addresses of context blocks that are to be set by the initialization. 
PATSGL_TXTFREE = Pointer to firsc free byte of text buffer in last block 
PATSGL_TXTLHD = Pointer to first block of text buffer 
PATSGL_TXTTAIL = Pointer to last block of text buffer 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
The communication channels are open. 
ROUTINE VALUE: 


NOVALUE 


i? : GLOBAL ROUTINE PATSINIT: NOVALUE = 

16 4 14+ 

i? ; FUNCTIONAL DESCRIPTION: 

19 4 Sets up local context for PATCH. If the logical devices SYSS$INPUT, 
20 4 SYSSOUTPUT, or SYSSERROR cannot be set up, the routine SIGNALS an error; 
$3 4 otherwise it returns. Initializes symbol tables and PATCH command 
$§ 2 text buffers. 

$e 2 CALLING SEQUENCE: 

se 5 PATSINIT() 

e7 5 

28 INPUTS: 

29 

30 none 

He 

35 

34 

35 

36 

37 


SIDE EFFECTS: 
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i 
i 
; Context, input and output modes, etc. are set up. 

: The symbol table Listheads are set up and the first block for 
: appended patch command text is allocated. 
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BEGIN 
Define local descriptors with file names for error signaling. 
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CAL 

PATSERRNAM_DESC : VECTOR (2), 

PATSINPNAM-DESC : VECTOR 
PATSOUTNAM_DESC : VECTOR 


PATSERRNAM_DESC [0] = PATSK_ERRNAMLNG; 
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PATBAS 16-Sep-1984 VAX=11 BLiss-32 V4.0-742 Pace 7| 

04-000 on seen ORs 98:98:88 MRA Ste aechAi en cacapareas.as2nt” cas 
71 PATSERRNAM_DESC PATS$GB_ERRNAME; | 
7 PATSINPNAM-DESC PAT$K_INPNAMLNG; | 
7 PATSINPNAR. “DESC $GB_INPNAME; 
74 PATSOUTNAM_DESC PATS$K_OUTNAMLNG; 

75 PATSOUTNAM? DESC 

77 
ti 


nun 
>> 
ear 


-—O—-o— 


PATSCB OUTNAME ; 
e+ 


i If the OPENs and CONNECTS cannot be done Sussesefulty for logical devices | 
' SYSSERROR, SYSSINPUT, and SYSSOUTPUT, then SIGNAL a fatal error. 
i — causes a return to the command [ine interpreter. 


PATSGL_ERRCODE = SOPEN (FAB = PATSGL_OUTFAB); 
M4 NOT” .PAT$SGL_ERRCODE 


SIGNAL_STOP (PAT$_OPENOUT, PATSOUTNAM_DESC, 


-PATSGL UOUTEABEEABSE _STSJ, .PATSGL_OUTFABLFABSL_STV]); 


1 -ERRCODE = SCONNECT (RAB = PATSGL_OUTRAB); 
IF ets -PATSGL_ERRCODE 


SIGNAL_STOP (PAT$_OPENOUT, PATSOUTNAM_DESC, 
-PATSGL JOOTRABERADSE _STSJ, .PAT$GL_OUTRABCRABSL_STV)); 


ATSGL_ERRCODE = SOPEN (FAB = PATSGL_ERRFAB); 
WO -PATSGL_ERRCODE 


SIGNAL_STOP (PAT$_OPENOUT, 1, PATSERRNAM_DESC, 
.PATSGL TERRE ABLE ABSL STS], .PATSGL_ERRFABLFABSL_STV]); 


ar -ERRCODE = SCONNECT (RAB = PATSGL_ERRRAB); 
NOT” .PATSGL_ERRCODE 


! 
| 
SIGNAL_STOP (PAT$_OPENOUT, PATSERRNAM_DESC, | 
-PATS$GL UERRRABERABSL _STSJ, ~PATSGL ERRRABCRABSL_STV]); | 
| 
| 
| 
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ee -ERRCODE = SOPEN (FAB = PATSGL_INPFAB); 
OT -PAT$GL_ERRCODE 


SIGNAL_STOP (PAT$_OPENIN PATSINPNAM DESC, 
.PATSGL_ [NPE ABCFAGSL _S1SJ, .PATSGL_INPFABLFABSL_STV]); 


PATSGL_ERRCODE = SCONNECT (RAB = PATS$GL_INPRAB); 
IF NOT .PAT$SGL_ERRCODE 


SIGNAL_STOP (PAT$_OPENIN PATSINPNAM DESC, 
~PATSGL_ [NPRABCRABSL _S1SJ, .PATSGL_INPRABCRABSL_STV]); 
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lee 

i Initialize an area of free storage, and give the name of the 
! PATCH error reporting mechanism as the name of the routine that 
it the free storage package can call to report errors. 


PATSFREEINIT (); 


lee 
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H } 3? Set the default mode settings. : 
: 0 1 8 PATSRESET_DEF (); 3 
: 1 135 ; 
; $8 1360 e+ : 
; 1361 ! Set all the de command context bits to FALSE. These bits : 
> 334 1 6¢ ! refer to context that is valid only during a single command, : 
3 $2 : o> } not across multiple commands. : 
3 7 1365 PATSSET_CONTEXT (); H 
; 8 1366 ; 
; 339 1367 1 ++ : : 
; 340 1368 ! Initialize the symbol chain by allocating storage for the header : 
; $3 139? Link and setting the pointers to point to the Link. : 
; 34 130) PATSGL_SYMHEAD = PATSFREEZ (OVERHEAD SYM); : 
3 344 1 e DLL_RLINK (.PATSGL_SYMHEAD) = .PATSGC_SYMHEAD; ; 
: 345 1373 2 DLLLLINK (.PATSGL-SYMHEAD) = .PATSGL~SYMHEAD: | ; 
; 346 1374 SYM_VALUE (.PATSGL_SYMHEAD) = 0; 3 
3: 347 1375 SYM-CSTRING (.PATSGL_SYMHEAD) = 0; | : 
; 348 1376 2 PATSGL_SYMTBPTR = .PATSGL_SYMHEAD; 3 
; 349 1377 § 3 
; 350 1378 lee 5 
3 Se} 1379 : Initialize the old contents label symbol chain by allocating storage for 3 
3 326 1339 ! the header Link and setting the pointers to point to the Link. ; 
s 396 1386 PATSGL_OLDLABLS = PATSFREEZ (OVERHEAD SYM); 3 
3 355 138 DLL_RLINK (.PATSGL_OLDLABLS) = .PATSGC_OLDLABLS; 5 
3 396 1384 DLL_LLINK (.PATSGL_OLDLABLS) = .PATSGL_OLDLABLS; : 
3 Sor 1385 SYM_VALUE (.PAT$GL_OLDLABLS) = 0; 3 
; 358 1386 SYM_CSTRING (.PATSGL_OLDLABLS) = 0; 3 
3 Boy 1387 ; 
; 360 1388 ++ ; ; ; 
; 361 1389 2! Initialize the new contents un-relocated label symbol chain by allocatin 3 
; $06 1330 ! storage for the header Link and setting the pointers to point to the Link. ; 
3; 364 1338 PAT$Gi_NEWLABLS = PATSFREEZ (OVERHEAD_SYM); : 
; 365 139 DLL_RLINK (.PATSGL_NEWLABLS) = .PATSGC_NEWLABLS; 3 
; 366 1394 2 DLLLLINK (.PATSGL-NEWLABLS) = .PATSGL-NEWLABLS; : 
; 367 1395 SYM_VALUE (.PATSGL_NEWLABLS) = 0; : 
3 308 1396 SYM_CSTRING (.PATSGL_NEWLABLS) = 0; 3 
; ie 1397 F 
: $59 1398 'o¢ ; , : 
; (371 1399 ! Initialize the new contents relocated label symbol chain by ol locer ing, : 
3 z ts storage for the header Link and setting the pointers to point to the Link. : 
: 374 1406 PATSGL_RLCLABLS = PATSFREEZ (OVERHEAD SYM); 3 
: 375 140 DLL_RLINK (.PATS$GL_RLCLABLS) = .PATSGC_RLCLABLS; ; 
8 76 1404 DLL_LLINK (.PATSGL_RLCLABLS) = .PATSGL_RLCLABLS; : 
3: 377 1405 SYM_VALUE (.PATS$GL_RLCLABLS) = 0; : 
; 378 Jone SYM_CSTRING (.PATSGL_RLCLABLS) = 0; $ 
: 379 140 3 
: 380 1408 !¢¢ ; : 
; 381 1409 ! Allocate the first buffer for the appended patch command text and : 
: ; ye } initialize the pointers. : 
: 84 1412 PAT$GL_TXTLHD = PATSFREEZ((A_PAGE + 3)/4); : 
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; 385 1413 2 PATSGL_TXTTAIL = .PATSGL_TXTLHD; : 
: 86 1414 PATSGL_TXTFREE = .PATSGL-TXTLHD + TXTSC_SIZE; | : 
; 388 1018 144 : 
3 89 141 i Initialize the ECO Level for this paces This ECO Level byt $s 3 
; 390 1218 : set to an ECO level by the Sey ECO" command and reninitial ized by ‘ 
; 4 a a the "‘UPDATE’’ command. : 
; 39 1421 PATSGB -ECOLVL = 0; ; 
: 394 14 é : 
$ 95 14 'e¢ : 
; % 1? : i! Initialization is complete and successful. Return TRUE. : 
: 398 1496 5 RETURN(TRUE); : 
; 399 1427 7 END; 
.EXTRN SYSSOPEN, SYSSCONNECT ; 
03 00 .ENTRY PATSINIT, Save R2,R3,R4,R5,R6,R7,RB,R9 1242 : 
59 000000006 02 MOVL §#PAT$_OPENIN, R F 
58 000000006 09 MOVAB PATS$GC_TXTLHD, RB ; 
57 000000006 10 MOVAB SYSS$CONNECT, R ; 
36 000000006 17 MOVAB OPEN : 
55 000000006 IE MOVL §#PAT$_OPENOUT, RS F 
54 000000006 MOVAB P FREEZ, : 
53 000000006 g MOVAB LIBSSTOP, R3 : 
32 000000006 3 MOVA PATSGL OF ARCODE, R2 ; 
0c AE 000000006 3p MOVL #PATSK -ERRNAMLNG PATSERRNAM DESC 1298 : 
10 AE 900000006 45 MOVAB PATSGB"ERRNAME, PATSERRNAM DESC +4 1299 ; 
04 AE 000000006 4D MOVL RPATSK-INPNARL NG PATS TNPNRR DESC 1300 : 
08 AE 000000006 55 MOVAB PATSGB_INPNAM PATSINPNAM_DESC+4 1301 : 
000000006 30 PUSHL #PATS$K~OU AME NG 1302 ; 
04 AE 000000006 6 MOVAB PATSGB~ OUTNARE, PATSOUTNAM_DESC+4 1303 
000000006 6B PUSHAB PATS$GL~OUTFAB 1311 
66 71 CALLS a, SYSSOPEN 
62 74 MOVL PATSGL ERRCODE 
1 77 BLBS PAT SEL ERRCODE 
7E 000000006 gh MOVQ =~PA 1set7 SOT E ABS “6, 1S sp) 


PUSHAB ae DESC 
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84 PUSHL 
86 PUSHL RS 
63 CALLS #5, LIBS$STOP 
000000006 8B 1$: PUSHAB PAT$GL_OUTRAB 1317 
67 91 CALLS #1, SYSSCONNECT 
62 94 MOVL RO, PATS$GL_ERRCODE 
11 97 BLBS §PATSGL_ERRTODE, 2$ 1318 
7E 000000006 9A MOV —s PATS$GL OUTRAB +6, -(SP) 1 4 
08 Al PUSHAB PATSOUTNAM_DESC 1320 
Ad PUSHL #1 
Ag PUSHL R? 
3 A CALLS #5, LIBSSTOP 
000000006 AB 2%: PUSHAB PATSGL L AERRE AB 1323 
BI CALLS #1, SYSSOPE 
6 B4 MOVL RO. PATS$GL_ERRCODE 
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PATBA 16-Sep 4 VAX-11 Bliss-32 V4.0-742 Page 
v04-000 14-Sep 71982 99: 98: 38 DISKSVMSMASTER: CPATCH. SRCJPATBAS.B32; 1 77 
11 62 £8 00087 BLBS § PATSGL_ERRCODE, 3$ : 

7E 000000006 EF 5S 008A ova ATSGL~ERRFAB+8, =(SP) : 

1 AE 9F C1 PUSHAB PATSERRNAM_DESC : 

o1 DD 000C4 USHL 4 ; 

5 DD b0¢6 PUSHL ; 

6% 05 FB 99¢ CALLS L18$STOP : 

000000006 EF 9F OCB 3$: PUSHAB Bit RAB ; 

67 1 FB 000D1 CALLS Sete , ORNECT : 

62 9 D 9004 MOVL PAT$SGL_ERRCODE : 

11 6 E 007 BLBS Rd; PATEL ER 4$ : 

7E 000000006 EF 7D OOODA MOV _—s— PATS$GL ERRRABS, -(SP) : 

18 AE OF 3) PUSHAB PATSERRNAM” DES ; 

01 DD OOOES PUSHL #1 : 

5 DD DEG PUSHL  R5 ; 

63 05 FB O00E CALLS Re LIBSSTOP : 

000000006 EF 9F OODEB 4$: PUSHAB PATSGL_INPFAB ; 

66 1 FB OOOF1 CALLS 1, SYSSOPEN 3 

62 0 09 OF4 MOVL RO, PATSGL_ERRCODE : 

11 62 E 000F7 BLBS PATSGL ERROD 5 ; 

7E 000000006 EF 70 OOOFA MOVO  PATS$GL~INPFAB+8, -(SP) : 

10 AE 9F 00101 PUSHAB PATSINBNAM, DESC F 

01 ODD 90194 PUSHL #1 : 

59 DD 00106 PUSHL R9 : 

63 05 FB 00108 CALLS #5 LIBSSTOP : 

000000006 EF 9F 0010B S$: PUSHAB PAT$GL_INPRAB ; 

67 1 FB 00111 CALLS #1, ey CONNEC ; 

62 0 dO 00114 MOVL RO, PAT$GL_ERRCODE ; 

11 62 8 00117 BLBS § PATSGL_ERRTODE ; 

7E 000000006 EF 7D OO11A OVO  PATS$GL~ ENPRABSS, -(SP) : 

10 AE 9F 00121 PUSHAB PATSINPNAM® DESC : 

01 DD 00124 PUSHL #1 F 

59 DD 00126 PUSHL  R9 : 

63 05 FB 00128 CALLS #5, LIBSSTOP : 

000000006 _ EF 00 FB 01 B 6$: CALLS #0, PATSFREEINIT : 
000000006 _ EF 00 FB 00132 CALLS #0, PATSRESET DEF F 
FEBG OCF 00 FB 00139 CALLS #0, PATSSET_CONTEXT ; 

04 DD 0013 PUSHL #4 F 

64 gi FB 00140 CALLS #1, PATSFREEZ ; 

000000006 _ EF 0 dO 00143 MOVL RO, PAT Ser _SYMHEAD ; 
60 50 DO OO14A MOVL RO, (R ; 

04 AO 50 DO 00140 MOVL RO, 4(RO) ; 

08 AO 7¢ 00151 CLRO ) ; 

000000006 _ EF 50 00 00154 OVL RO, PATSGL_SYMTBPTR : 
4 OD ot B PUSHL F 

64 1 F 15D CALLS PATSFREEZ F 

000000006 _ EF 0 D0 00160 MOVL nD; PATSGL ~OLDLABLS ; 
60 0 DO 00167 MOVL ; 

04 AO 0 p 016A MOVL RO, £0} : 

08 AO 7C O16 CLRO =: BRO) ; 

4 DD 001 PUSHL #4 : 

64 1 FB 00173 CALLS #1, PATSFREEZ ; 

000000006 _ EF DO 00176 MOVL RO, PATSGL _NEWLABLS : 
60 D 170 MOVL 3 

04 AO D 180 MOVL otro) : 

08 Ad 7C 001 CLRO RO, ; 

04 DD 1 7 PUSHL ; 

64 1 FB 00189 CALLS #1, PATSFREEZ ; 


.©00 0000 
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04-000 17a 80e- fhe 99:85:sg |  RALSteacr bat Cn cecapareas.e3207% ca} 
000000006 Ef D 18¢ MOVL RO, PAT$GL_RLCLABLS : 

D0 001 MOVL RO, (RO) + 1403 

04 p 196 MOVL RO, 4(RO) + 1404 

08 AO 7¢ 19A CLRO (RO) + 1405 

7E F 9A 0019D MOVZBL #128, -(SP) + 1412 
64 1 FB OO1A1 CALL a, PAT ATSEREEZ ; 
68 0 DO 001A4 MOVL PAT$GL_TXT ; 

000000006 EF 6 DO 001A7 MOVL PatsGL IXTCHD LOA TSGL TXTTAIL + 1413 

000000006 EF 68 4 ci O1AE ADDL3 PATS TXTLHD, PATSGL_TXTFREE + 1414 

000000006 EF 94 00186 CLRB PATSGS. EC ebrve + 1421 

04 001BC RET + 1427 


; Routine Size: 445 bytes, Routine Base: _PATSCODE + OO0E 
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; 401 1038 1 END 
; 402 14 0 ELUDOM 
-EXTRN LIBSSTOP 
: PSECT SUMMARY 
; Name Attributes 
: _PATSCODE 459 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL CON NOR IG AL IGN C8 
gs « O83 0 NOVEC.NOWRT.NORD .NOEXE,NOSHR, LCL. ABS, CON,NOPIC.ALIGN(O) 
: Library Statistics 
eee. ee Syabols oce-eee2 Pages Processing 
; File Total Loaded Percent Mapped Time 
; _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 13 0 581 00:01.0 
; COMMAND QUALIFIERS 
H BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/VARIANT:1/LIS=L1S$:PATBAS/0B.J=0BJ$:PATBAS MSRC$:PATBAS/UPDATE=(ENH$:PATBAS) 


; Size: 
; Run Time: 
; Elapsed Time: 


459 code + 0 data bytes 


0: 
01:06.1 


396 
; Lexemes/CPU-Min: 4925 


; ponety Used: 
a 


; Compi 


t Lines/CPU Min: 


188 pages 
tion Complete 


(33 
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